home *** CD-ROM | disk | FTP | other *** search
/ Resource Library: Multimedia / Resource Library: Multimedia.iso / hypercrd / nwmxcmsm / fldcntrl.hqx / flood control / stack_-1.xml < prev    next >
Encoding:
Extensible Markup Language  |  1991-10-25  |  2.9 KB  |  21 lines
  1. <?xml version="1.0" encoding="utf-8" ?>
  2. <!DOCTYPE stack PUBLIC "-//Apple, Inc.//DTD stack V 2.0//EN" "" >
  3. <stack>
  4.     <name>in</name>
  5.     <id>-1</id>
  6.     <cardCount>2</cardCount>
  7.     <cardID>2821</cardID>
  8.     <listID>4985</listID>
  9.     <cantModify><false /></cantModify>
  10.     <cantDelete><false /></cantDelete>
  11.     <cantAbort><false /></cantAbort>
  12.     <cardSize>
  13.         <width>512</width>
  14.         <height>342</height>
  15.     </cardSize>
  16.     <script>on openStack
  17. global menu1,menu2
  18. put newMenu("Water","Find it","Get it","Humans","Biological diversity",┬¼
  19. "A Difference","(-","Main Menu","(-","Water Help") into menu1
  20. put newMenu("Video","Laser","Tape") into menu2
  21. end openStack
  22.  
  23. on closeStack
  24. global menu1,menu2
  25. put deleteMenu(menu1) into menu1
  26. put deleteMenu(menu2) into menu2
  27. end closeStack
  28.  
  29. on doMenu which
  30. global menu1,menu2
  31. if which is "Find it" then
  32. visual effect dissolve slow to black
  33. wait 5
  34. visual effect dissolve slow
  35. go to stack "where we find water"
  36. else if which is "Get it" then
  37. visual effect dissolve slow to black
  38. wait 5
  39. visual effect dissolve slow
  40. go to stack "where we get water"
  41. else if which is "Humans" then
  42. visual effect dissolve slow to black
  43. wait 5
  44. visual effect dissolve slow
  45. go to stack "human adaptation"
  46. else if which is "Biological diversity" then
  47. visual effect dissolve slow to black
  48. wait 5
  49. visual effect dissolve slow
  50. go to stack "biological diversity"
  51. else if which is "A Difference" then
  52. visual effect dissolve slow to black
  53. wait 5
  54. visual effect dissolve slow
  55. go to stack "we make a difference"
  56. else if which is "Main Menu" then
  57. visual effect dissolve slow to black
  58. wait 5
  59. visual effect dissolve slow
  60. go to stack "database-1"
  61. else if which is "Water Help" then
  62. visual effect dissolve slow to black
  63. wait 5
  64. visual effect dissolve slow
  65. go to card "help" in stack "database-1"
  66. else if which is "Laser" then
  67. answer "Coming soon to a Laser Optical Disk Player!" with "OK"
  68. else if which is "Tape" then
  69. answer "You have got to be kidding!" with "OK"
  70. else
  71. pass doMenu
  72. end if
  73. end doMenu
  74.  
  75. on sicEmFido
  76. global ContinueOrNot, searchString
  77. if ContinueOrNot is NoGo then
  78. put empty into ContinueOrNot
  79. exit sicEmFido
  80. end if
  81. ask "Type in the word or phrase you want to find." with searchString
  82. if the result is cancel then
  83. answer "Ending search"
  84. exit sicEmFido
  85. end if
  86. put it into searchString
  87. sniffOut
  88. end SicEmFido
  89.  
  90.  
  91. on sniffOut
  92. global ContinueOrNot, searchString
  93. find whole searchString
  94. if the result is empty then
  95. answer "Do you want to search for further occurences?"┬¼
  96. with "Yes" or "No" or "Another"
  97. if it is "Yes" then
  98. sniffOut
  99. end if
  100. if it is "No" then
  101. answer "The search is complete."
  102. put NoGo into ContinueOrNot
  103. sicEmFido
  104. end if
  105. if it is "Another" then
  106. sicEmFido
  107. end if
  108. end if
  109. if the result is not empty then
  110. answer "I did not find your selection."
  111. end if
  112. end sniffOut
  113. </script>
  114.     <background id="2574" file="background_2574.xml" name="" />
  115.     <card id="2821" file="card_2821.xml" marked="false" name="" owner="2574" />
  116.     <card id="4219" file="card_4219.xml" marked="false" name="" owner="2574" />
  117. </stack>
  118.